home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / pastime.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-08  |  2.4 KB  |  72 lines
  1. 10  DEFINT A-Z
  2. 20  KEY OFF:CLS
  3. 30  PRINT "'Pastime with Good Company' by Henry VIII"
  4. 40  H=16:Q=8:E=4:S=2
  5. 50  PLAY "t180 l64 ml"
  6. 60  FOR R=1 TO 2
  7. 70  FOR N=1 TO Q+E:PLAY "o3gdo2g":NEXT N:PLAY "n0"
  8. 80  FOR N=1 TO E:PLAY "o3gdo2g":NEXT N:PLAY "n0"
  9. 90  FOR N=1 TO Q+E:PLAY "o3b-do2g":NEXT N:PLAY "n0"
  10. 100  FOR N=1 TO E:PLAY "o3b-do2d":NEXT N:PLAY "n0"
  11. 110  GOSUB 200
  12. 120  FOR N=1 TO Q:PLAY "n0n0n0":NEXT N:PLAY "n0"
  13. 130  FOR N=1 TO Q+E:PLAY "o3b-do2g":NEXT N:PLAY "n0"
  14. 140  FOR N=1 TO E:PLAY "o3b-do2g":NEXT N:PLAY "n0"
  15. 150  FOR N=1 TO Q+E:PLAY "o3b-do2g":NEXT N:PLAY "n0"
  16. 160  FOR N=1 TO E:PLAY "o3b-do2d":NEXT N:PLAY "n0"
  17. 170  GOSUB 200
  18. 180  FOR N=1 TO E:PLAY "n0n0n0":NEXT N:PLAY "n0"
  19. 190  GOTO 370
  20. 200  FOR N=1 TO E+S:PLAY "o3aco2f":NEXT N
  21. 210  FOR N=1 TO S:PLAY "o3b-do2d":NEXT N
  22. 220  FOR N=1 TO E:PLAY "o3aco2f":NEXT N:PLAY "n0"
  23. 230  FOR N=1 TO E:PLAY "o3go2b-g":NEXT N:PLAY "n0"
  24. 240  FOR N=1 TO Q:PLAY "o3fo2ad":NEXT N:PLAY "n0"
  25. 250  FOR N=1 TO E:PLAY "n0n0n0":NEXT N:PLAY "n0"
  26. 260  FOR N=1 TO E:PLAY "o3fo2ad":NEXT N:PLAY "n0"
  27. 270  FOR N=1 TO Q+E:PLAY "o3b-do2d":NEXT N:PLAY "n0"
  28. 280  FOR N=1 TO E:PLAY "o3b-do2d":NEXT N:PLAY "n0"
  29. 290  FOR N=1 TO Q+E:PLAY "o3aco2f":NEXT N:PLAY "n0"
  30. 300  FOR N=1 TO E:PLAY "o3go2b-g":NEXT N:PLAY "n0"
  31. 310  FOR N=1 TO E+S:PLAY "o3f+o2ad":NEXT N
  32. 320  FOR N=1 TO S:PLAY "o3go2ge-":NEXT N
  33. 330  FOR N=1 TO E:PLAY "o3f+o2ad":NEXT N:PLAY "n0"
  34. 340  FOR N=1 TO E:PLAY "o3f+o2ad":NEXT N:PLAY "n0"
  35. 350  FOR N=1 TO Q:PLAY "o3go2go1g":NEXT N:PLAY "n0"
  36. 360  RETURN
  37. 370  FOR I=1 TO 2
  38. 380  FOR N=1 TO E:PLAY "o3fdo1b-":NEXT N:PLAY "n0"
  39. 390  FOR N=1 TO Q:PLAY "o3go2b-e-":NEXT N:PLAY "n0"
  40. 400  FOR N=1 TO Q:PLAY "o3aco2c":NEXT N:PLAY "n0"
  41. 410  FOR N=1 TO Q:PLAY "o3b-do1b-":NEXT N:PLAY "n0"
  42. 420  FOR N=1 TO E:PLAY "n0n0n0":NEXT N:PLAY "n0"
  43. 430  NEXT I
  44. 440  FOR N=1 TO E:PLAY "o3b-do1b-":NEXT N:PLAY "n0"
  45. 450  FOR N=1 TO E+S:PLAY "o3aco2f":NEXT N
  46. 460  FOR N=1 TO S:PLAY "o3b-do2f":NEXT N
  47. 470  FOR N=1 TO E:PLAY "o3aco2f":NEXT N:PLAY "n0"
  48. 480  FOR N=1 TO E:PLAY "o3go2b-d":NEXT N:PLAY "n0"
  49. 490  FOR N=1 TO Q:PLAY "o3fo2ad":NEXT N:PLAY "n0"
  50. 500  FOR N=1 TO E:PLAY "n0n0n0":NEXT N:PLAY "n0"
  51. 510  FOR N=1 TO E:PLAY "o3fdo2d":NEXT N:PLAY "n0"
  52. 520  FOR N=1 TO Q:PLAY "o3go2b-e-":NEXT N:PLAY "n0"
  53. 530  FOR N=1 TO Q:PLAY "o3aco2c":NEXT N:PLAY "n0"
  54. 540  FOR N=1 TO Q:PLAY "o3b-do1b-":NEXT N:PLAY "n0"
  55. 550  FOR N=1 TO E:PLAY "n0n0n0":NEXT N:PLAY "n0"
  56. 560  FOR N=1 TO E:PLAY "o3fdo1b-":NEXT N:PLAY "n0"
  57. 570  FOR N=1 TO Q:PLAY "o3go2b-e-":NEXT N:PLAY "n0"
  58. 580  FOR N=1 TO Q:PLAY "o3aco2c":NEXT N:PLAY "n0"
  59. 590  FOR N=1 TO Q:PLAY "o3b-do1b-":NEXT N:PLAY "n0"
  60. 600  FOR N=1 TO E:PLAY "n0n0n0":NEXT N:PLAY "n0"
  61. 610  FOR N=1 TO E:PLAY "o3b-do2g":NEXT N:PLAY "n0"
  62. 620  FOR N=1 TO E:PLAY "o3aco2c":NEXT N
  63. 630  FOR N=1 TO E:PLAY "o3go2b-e-":NEXT N:PLAY "n0"
  64. 640  FOR N=1 TO S:PLAY "o3f+o2ad":NEXT N
  65. 650  FOR N=1 TO S:PLAY "o3go2ad":NEXT N
  66. 660  FOR N=1 TO S:PLAY "o3ao2ad":NEXT N
  67. 670  FOR N=1 TO S:PLAY "o3f+o2ad":NEXT N:PLAY "n0"
  68. 680  FOR N=1 TO H:PLAY "o3go2go1g":NEXT N:PLAY "n0"
  69. 690  FOR N=1 TO Q:PLAY "n0n0n0":NEXT N:PLAY "n0"
  70. 700  NEXT R
  71. 710  CLS:SYSTEM
  72.